home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / qbfaqr01.zip / CAD.BAS < prev    next >
BASIC Source File  |  1992-08-09  |  608b  |  21 lines
  1. 'The following statements turn on trapping of Ctrl+Alt+Del:
  2. 'Don't forget to link with /V option
  3.  
  4. '12 = 4 + 8 = (code for Ctrl key) + (code for Alt key)
  5. '83 = scan code for Del key
  6. KEY 15, CHR$(12) + CHR$(83)         'Ctrl-Alt-Del (on num pad)
  7. KEY 16, CHR$(128 + 12) + CHR$(83)   'Ctrl-Alt-Del (on alt editing pad)
  8. ON KEY(15) GOSUB CtrlAltDel
  9. ON KEY(16) GOSUB CtrlAltDel
  10. KEY(15) ON
  11. KEY(16) ON
  12.  
  13. DO                                  'Exit as soon as a key other than
  14.     A$ = INKEY$                     'Ctrl-alt-del is pressed.
  15. LOOP UNTIL LEN(A$)
  16. END
  17.  
  18. CtrlAltDel:
  19.     PRINT "Got it"
  20. RETURN
  21.